﻿

Public Class sMysqlItem
    Private _Value As Object
    Private _NewValue As Object
    Private _isChanged As Boolean
    '
    Public Property Value As Object
        Get
            If _isChanged Then
                Return _NewValue
            Else
                Return _Value
            End If
        End Get
        Set(value As Object)
            _NewValue = value
            If _NewValue = _Value Then
                _isChanged = False
            Else
                _isChanged = True
            End If
        End Set
    End Property

    Public ReadOnly Property Type As String
        Get
            Return _Value.GetType.ToString
        End Get
    End Property


End Class

